object VerGunForm: TVerGunForm
  Left = 14
  Top = 98
  Width = 605
  Height = 291
  Caption = 'Veresiye Sat�� Fiyatlar�n� G�ncelleme'
  Color = clTeal
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Label9: TLabel
    Left = 11
    Top = 63
    Width = 42
    Height = 13
    AutoSize = False
    Caption = 'Borcu'
    FocusControl = EditBORC
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 376
    Top = 11
    Width = 50
    Height = 13
    AutoSize = False
    Caption = 'Sat�� No'
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 9
    Top = 11
    Width = 57
    Height = 13
    AutoSize = False
    Caption = 'Cari Kodu'
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label12: TLabel
    Left = 262
    Top = 64
    Width = 35
    Height = 13
    AutoSize = False
    Caption = 'Bilgi'
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 293
    Top = 11
    Width = 73
    Height = 13
    AutoSize = False
    Caption = '��lem Tarihi'
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 173
    Top = 64
    Width = 46
    Height = 13
    AutoSize = False
    Caption = 'VADE'
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 384
    Top = 116
    Width = 81
    Height = 13
    AutoSize = False
    Caption = 'Toplam Fark'
    FocusControl = EditBORC
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelFARK: TLabel
    Left = 383
    Top = 132
    Width = 212
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'LabelFARK'
    Color = clYellow
    ParentColor = False
  end
  object Label1: TLabel
    Left = 92
    Top = 11
    Width = 57
    Height = 13
    AutoSize = False
    Caption = 'Cari Ad�'
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBGridSAT: TDBGrid
    Left = 0
    Top = 150
    Width = 597
    Height = 114
    Align = alBottom
    DataSource = DataSource3
    ReadOnly = True
    TabOrder = 0
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
  end
  object BitBtn1: TBitBtn
    Left = 6
    Top = 115
    Width = 237
    Height = 25
    Caption = 'Eski Fiyatlar� Yenile ve Borcuna Fark� Ekle'
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object DevamBtn: TBitBtn
    Left = 503
    Top = 7
    Width = 76
    Height = 25
    Hint = 'Sonraki Fyt. De�i�imi'
    Caption = '&Sonraki '
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial Tur'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = DevamBtnClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333FF3333333333333003333
      3333333333773FF3333333333309003333333333337F773FF333333333099900
      33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
      99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
      33333333337F3F77333333333309003333333333337F77333333333333003333
      3333333333773333333333333333333333333333333333333333333333333333
      33333333333333333333333333333333333333333333333333330000}
    NumGlyphs = 2
    Spacing = 3
  end
  object EditBORC: TDBEdit
    Left = 8
    Top = 77
    Width = 153
    Height = 22
    Color = clGray
    DataField = 'BORC'
    DataSource = SRCHrkTab
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    MaxLength = 0
    ParentFont = False
    ReadOnly = True
    TabOrder = 3
  end
  object EditALSATNO: TDBEdit
    Left = 373
    Top = 24
    Width = 65
    Height = 22
    Color = clSilver
    DataField = 'ALSATNO'
    MaxLength = 0
    ReadOnly = True
    TabOrder = 4
  end
  object EditCARIKOD: TDBEdit
    Left = 6
    Top = 24
    Width = 67
    Height = 22
    Color = clSilver
    DataField = 'CARIKOD'
    DataSource = SRCHrkTab
    MaxLength = 0
    ReadOnly = True
    TabOrder = 5
  end
  object EditBILGI: TDBEdit
    Left = 259
    Top = 77
    Width = 230
    Height = 22
    DataField = 'BILGI'
    DataSource = SRCHrkTab
    MaxLength = 0
    TabOrder = 6
  end
  object EditTARIH: TDBEdit
    Left = 293
    Top = 24
    Width = 65
    Height = 22
    Color = clSilver
    DataField = 'TARIH'
    DataSource = SRCHrkTab
    MaxLength = 0
    ReadOnly = True
    TabOrder = 7
  end
  object EditVADE: TDBEdit
    Left = 171
    Top = 77
    Width = 65
    Height = 22
    DataField = 'VADE'
    DataSource = SRCHrkTab
    MaxLength = 0
    TabOrder = 8
  end
  object BitBtn2: TBitBtn
    Left = 503
    Top = 39
    Width = 76
    Height = 25
    Hint = 'Sonrakine Ge�me'
    Caption = '&Dur'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial Tur'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = BitBtn2Click
    Kind = bkCancel
  end
  object EditADI: TEdit
    Left = 88
    Top = 24
    Width = 185
    Height = 22
    Color = clSilver
    ReadOnly = True
    TabOrder = 10
  end
  object QVerFark: TQuery
    AfterOpen = QVerFarkAfterOpen
    DatabaseName = 'ECZ'
    Params.Data = {01000200046B6F64750001020030000101046B6F64750001020030000101}
    SQL.Strings = (
      'SELECT '
      'SATIS.SATISNO,'
      'HAREKET.ALSATNO,'
      'HAREKET.ALSAT,'
      'HAREKET.CARIKOD,'
      'SATIS.ILACNO,'
      'SATIS.FIYAT,'
      'URUN.FIYAT'
      'FROM '
      'HAREKET,SATIS,URUN'
      'WHERE '
      '(HAREKET.CARIKOD=:kodu OR :kodu IS NULL) AND'
      '(HAREKET.ALSATNO IS NOT NULL) AND'
      '(HAREKET.ALSAT='#39'S'#39') AND'
      '(HAREKET.TUR='#39'M'#39') AND'
      '((HAREKET.NIHAI=0) OR (HAREKET.NIHAI IS NULL)) AND'
      '(HAREKET.ALSATNO=SATIS.SATISNO) AND'
      '(SATIS.ILACNO=URUN.ILACNO AND SATIS.FIYAT<URUN.FIYAT)'
      'ORDER BY SATIS.SATISNO')
    Left = 432
    Top = 48
    object QVerFarkALSATNO: TFloatField
      FieldName = 'ALSATNO'
      Visible = False
    end
    object QVerFarkALSAT: TStringField
      FieldName = 'ALSAT'
      Visible = False
      Size = 1
    end
    object QVerFarkCARIKOD: TStringField
      FieldName = 'CARIKOD'
      Size = 11
    end
    object QVerFarkILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object QVerFarkFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
    object QVerFarkFIYAT_1: TCurrencyField
      FieldName = 'FIYAT_1'
    end
    object QVerFarkSATISNO: TFloatField
      FieldName = 'SATISNO'
    end
  end
  object DataSource1: TDataSource
    DataSet = QVerFark
    Left = 408
    Top = 51
  end
  object HrkTab: TTable
    DatabaseName = 'ECZ'
    IndexName = 'HALSAT'
    MasterFields = 'SATISNO;ALSAT'
    MasterSource = DataSource1
    TableName = 'Hareket.DB'
    Left = 520
    Top = 128
    object HrkTabCARIKOD: TStringField
      FieldName = 'CARIKOD'
      Size = 11
    end
    object HrkTabBORC: TCurrencyField
      FieldName = 'BORC'
    end
    object HrkTabNIHAI: TSmallintField
      FieldName = 'NIHAI'
    end
    object HrkTabBILGI: TStringField
      FieldName = 'BILGI'
      Size = 36
    end
    object HrkTabTARIH: TDateField
      FieldName = 'TARIH'
    end
    object HrkTabALSATNO: TFloatField
      FieldName = 'ALSATNO'
    end
    object HrkTabHAREKNO: TFloatField
      FieldName = 'HAREKNO'
      Visible = False
    end
    object HrkTabALSAT: TStringField
      FieldName = 'ALSAT'
      Visible = False
      Size = 1
    end
    object HrkTabVADE: TDateField
      FieldName = 'VADE'
    end
    object HrkTabTUR: TStringField
      FieldName = 'TUR'
      Size = 1
    end
  end
  object SRCHrkTab: TDataSource
    DataSet = HrkTab
    Left = 552
    Top = 128
  end
  object SatTab: TTable
    OnCalcFields = SatTabCalcFields
    DatabaseName = 'ECZ'
    IndexFieldNames = 'SATISNO'
    MasterFields = 'ALSATNO'
    MasterSource = SRCHrkTab
    TableName = 'SATIS.DB'
    Left = 8
    Top = 200
    object SatTabSIRANOURUN: TIntegerField
      DisplayLabel = 'S�ra'
      DisplayWidth = 4
      FieldName = 'SIRANOURUN'
    end
    object SatTabILAD: TStringField
      DisplayLabel = '�r�n Ad�'
      DisplayWidth = 36
      FieldName = 'ILAD'
      Lookup = True
      LookupDataSet = UrBak
      LookupKeyFields = 'ILACNO'
      LookupResultField = 'ILACAD'
      KeyFields = 'ILACNO'
    end
    object SatTabILACNO: TIntegerField
      FieldName = 'ILACNO'
      Visible = False
    end
    object SatTabFIYAT: TCurrencyField
      DisplayLabel = 'Eski Fiyat�'
      DisplayWidth = 15
      FieldName = 'FIYAT'
    end
    object SatTabYeniFiyat: TCurrencyField
      DisplayWidth = 15
      FieldName = 'YeniFiyat'
      Lookup = True
      LookupDataSet = UrBak
      LookupKeyFields = 'ILACNO'
      LookupResultField = 'FIYAT'
      KeyFields = 'ILACNO'
    end
    object SatTabMIKTAR: TIntegerField
      DisplayLabel = 'Adet'
      DisplayWidth = 4
      FieldName = 'MIKTAR'
    end
    object SatTabSATISNO: TFloatField
      FieldName = 'SATISNO'
      Visible = False
    end
    object SatTabFARK: TCurrencyField
      Calculated = True
      DisplayWidth = 15
      FieldName = 'FARK'
    end
  end
  object DataSource3: TDataSource
    DataSet = SatTab
    Left = 56
    Top = 192
  end
  object UrBak: TTable
    DatabaseName = 'ECZ'
    ReadOnly = True
    TableName = 'Urun.DB'
    Left = 488
    Top = 208
    object UrBakILACAD: TStringField
      FieldName = 'ILACAD'
      Size = 36
    end
    object UrBakILACNO: TAutoIncField
      FieldName = 'ILACNO'
    end
    object UrBakFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
  end
end